home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Complete C196855172001.psc / Client / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-05-17  |  31.1 KB  |  840 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form frmStart 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H80000004&
  7.    Caption         =   "Boomerang 
  8.  1.2 by Sushant Pandurangi"
  9.    ClientHeight    =   4605
  10.    ClientLeft      =   165
  11.    ClientTop       =   450
  12.    ClientWidth     =   7350
  13.    BeginProperty Font 
  14.       Name            =   "Tahoma"
  15.       Size            =   8.25
  16.       Charset         =   0
  17.       Weight          =   400
  18.       Underline       =   0   'False
  19.       Italic          =   0   'False
  20.       Strikethrough   =   0   'False
  21.    EndProperty
  22.    Icon            =   "frmMain.frx":0000
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   4605
  25.    ScaleWidth      =   7350
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin ComctlLib.Toolbar tbToolbar 
  28.       Align           =   1  'Align Top
  29.       Height          =   660
  30.       Left            =   0
  31.       TabIndex        =   3
  32.       Top             =   0
  33.       Width           =   7350
  34.       _ExtentX        =   12965
  35.       _ExtentY        =   1164
  36.       ButtonWidth     =   1032
  37.       ButtonHeight    =   1005
  38.       AllowCustomize  =   0   'False
  39.       Appearance      =   1
  40.       ImageList       =   "imlToolbar"
  41.       _Version        =   327682
  42.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  43.          NumButtons      =   16
  44.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  45.             Key             =   "CONNECT"
  46.             Object.ToolTipText     =   "Displays the connection dialog"
  47.             Object.Tag             =   ""
  48.             ImageIndex      =   1
  49.          EndProperty
  50.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  51.             Enabled         =   0   'False
  52.             Key             =   "DISCONNECT"
  53.             Object.ToolTipText     =   "Disconnects from remote computer"
  54.             Object.Tag             =   ""
  55.             ImageIndex      =   2
  56.          EndProperty
  57.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  58.             Key             =   ""
  59.             Object.Tag             =   ""
  60.             Style           =   3
  61.             MixedState      =   -1  'True
  62.          EndProperty
  63.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  64.             Key             =   "URL"
  65.             Object.ToolTipText     =   "Displays the URL shell dialog. (Ctrl+F3)"
  66.             Object.Tag             =   ""
  67.             ImageIndex      =   15
  68.          EndProperty
  69.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  70.             Key             =   "MESSAGE"
  71.             Object.ToolTipText     =   "Send pop-up messages to the computer. (Ctrl+F4)"
  72.             Object.Tag             =   ""
  73.             ImageIndex      =   3
  74.          EndProperty
  75.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  76.             Key             =   "TOOLS"
  77.             Object.ToolTipText     =   "Brings up the Tools window. (Ctrl+F5)"
  78.             Object.Tag             =   ""
  79.             ImageIndex      =   10
  80.          EndProperty
  81.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  82.             Enabled         =   0   'False
  83.             Key             =   ""
  84.             Object.Tag             =   ""
  85.             Style           =   3
  86.             MixedState      =   -1  'True
  87.          EndProperty
  88.          BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  89.             Key             =   "DESKTOP"
  90.             Object.ToolTipText     =   "Shows the user's desktop."
  91.             Object.Tag             =   ""
  92.             ImageIndex      =   6
  93.          EndProperty
  94.          BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  95.             Key             =   ""
  96.             Object.Tag             =   ""
  97.             Style           =   3
  98.             MixedState      =   -1  'True
  99.          EndProperty
  100.          BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  101.             Key             =   "INFO"
  102.             Object.ToolTipText     =   "Shows System Information."
  103.             Object.Tag             =   ""
  104.             ImageIndex      =   16
  105.          EndProperty
  106.          BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  107.             Key             =   ""
  108.             Object.Tag             =   ""
  109.             Style           =   3
  110.             MixedState      =   -1  'True
  111.          EndProperty
  112.          BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  113.             Key             =   "DOWNLOAD"
  114.             Object.ToolTipText     =   "Save a remote file to your local system. (Ctrl+F1)"
  115.             Object.Tag             =   ""
  116.             ImageIndex      =   8
  117.          EndProperty
  118.          BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  119.             Key             =   "DELETE"
  120.             Object.ToolTipText     =   "Delete selected remote file. (Ctrl+F2)"
  121.             Object.Tag             =   ""
  122.             ImageIndex      =   7
  123.          EndProperty
  124.          BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  125.             Key             =   ""
  126.             Object.Tag             =   ""
  127.             Style           =   3
  128.             MixedState      =   -1  'True
  129.          EndProperty
  130.          BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  131.             Key             =   "HELP"
  132.             Object.ToolTipText     =   "View Help Contents. (F1)"
  133.             Object.Tag             =   ""
  134.             ImageIndex      =   13
  135.          EndProperty
  136.          BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  137.             Key             =   "EXIT"
  138.             Object.ToolTipText     =   "Exit the application. (Ctrl+X)"
  139.             Object.Tag             =   ""
  140.             ImageIndex      =   11
  141.          EndProperty
  142.       EndProperty
  143.    End
  144.    Begin ComctlLib.TreeView tvTreeView 
  145.       Height          =   3405
  146.       Left            =   0
  147.       TabIndex        =   2
  148.       Top             =   675
  149.       Width           =   2145
  150.       _ExtentX        =   3784
  151.       _ExtentY        =   6006
  152.       _Version        =   327682
  153.       Indentation     =   344
  154.       LabelEdit       =   1
  155.       LineStyle       =   1
  156.       Sorted          =   -1  'True
  157.       Style           =   7
  158.       ImageList       =   "imlDrives"
  159.       BorderStyle     =   1
  160.       Appearance      =   1
  161.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  162.          Name            =   "Tahoma"
  163.          Size            =   8.25
  164.          Charset         =   0
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.    End
  171.    Begin ComctlLib.ListView lvFiles 
  172.       Height          =   3405
  173.       Left            =   2205
  174.       TabIndex        =   1
  175.       Top             =   675
  176.       Width           =   3000
  177.       _ExtentX        =   5292
  178.       _ExtentY        =   6006
  179.       View            =   3
  180.       LabelEdit       =   1
  181.       LabelWrap       =   -1  'True
  182.       HideSelection   =   -1  'True
  183.       _Version        =   327682
  184.       Icons           =   "imgList"
  185.       SmallIcons      =   "imgList"
  186.       ForeColor       =   -2147483640
  187.       BackColor       =   -2147483643
  188.       BorderStyle     =   1
  189.       Appearance      =   1
  190.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  191.          Name            =   "Tahoma"
  192.          Size            =   8.25
  193.          Charset         =   0
  194.          Weight          =   400
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       NumItems        =   3
  200.       BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  201.          Key             =   ""
  202.          Object.Tag             =   ""
  203.          Text            =   "File Name"
  204.          Object.Width           =   2540
  205.       EndProperty
  206.       BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  207.          SubItemIndex    =   1
  208.          Key             =   ""
  209.          Object.Tag             =   ""
  210.          Text            =   "File Size"
  211.          Object.Width           =   1411
  212.       EndProperty
  213.       BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  214.          SubItemIndex    =   2
  215.          Key             =   ""
  216.          Object.Tag             =   ""
  217.          Text            =   "Timestamp"
  218.          Object.Width           =   2540
  219.       EndProperty
  220.    End
  221.    Begin VB.Timer tCur 
  222.       Enabled         =   0   'False
  223.       Interval        =   50
  224.       Left            =   6435
  225.       Top             =   810
  226.    End
  227.    Begin VB.PictureBox pDN 
  228.       AutoRedraw      =   -1  'True
  229.       AutoSize        =   -1  'True
  230.       BackColor       =   &H80000004&
  231.       BorderStyle     =   0  'None
  232.       Height          =   3570
  233.       Left            =   2160
  234.       MouseIcon       =   "frmMain.frx":1582
  235.       MousePointer    =   99  'Custom
  236.       ScaleHeight     =   3570
  237.       ScaleWidth      =   45
  238.       TabIndex        =   5
  239.       Top             =   720
  240.       Width           =   45
  241.    End
  242.    Begin ComctlLib.ProgressBar PB1 
  243.       Height          =   285
  244.       Left            =   3690
  245.       TabIndex        =   4
  246.       Top             =   4320
  247.       Visible         =   0   'False
  248.       Width           =   1410
  249.       _ExtentX        =   2487
  250.       _ExtentY        =   503
  251.       _Version        =   327682
  252.       BorderStyle     =   1
  253.       Appearance      =   1
  254.    End
  255.    Begin ComctlLib.StatusBar sbStatusBar 
  256.       Align           =   2  'Align Bottom
  257.       Height          =   300
  258.       Left            =   0
  259.       TabIndex        =   0
  260.       Top             =   4305
  261.       Width           =   7350
  262.       _ExtentX        =   12965
  263.       _ExtentY        =   529
  264.       SimpleText      =   ""
  265.       _Version        =   327682
  266.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  267.          NumPanels       =   4
  268.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  269.             AutoSize        =   1
  270.             Object.Width           =   6429
  271.             Text            =   "Not connected"
  272.             TextSave        =   "Not connected"
  273.             Key             =   ""
  274.             Object.Tag             =   ""
  275.          EndProperty
  276.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  277.             Alignment       =   1
  278.             TextSave        =   ""
  279.             Key             =   ""
  280.             Object.Tag             =   ""
  281.          EndProperty
  282.          BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  283.             Style           =   6
  284.             AutoSize        =   2
  285.             Object.Width           =   1852
  286.             MinWidth        =   1852
  287.             TextSave        =   "16-05-2001"
  288.             Key             =   ""
  289.             Object.Tag             =   ""
  290.          EndProperty
  291.          BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  292.             Style           =   5
  293.             AutoSize        =   2
  294.             Object.Width           =   1588
  295.             MinWidth        =   1587
  296.             TextSave        =   "10:06 PM"
  297.             Key             =   ""
  298.             Object.Tag             =   ""
  299.          EndProperty
  300.       EndProperty
  301.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  302.          Name            =   "Tahoma"
  303.          Size            =   8.25
  304.          Charset         =   0
  305.          Weight          =   400
  306.          Underline       =   0   'False
  307.          Italic          =   0   'False
  308.          Strikethrough   =   0   'False
  309.       EndProperty
  310.    End
  311.    Begin MSComDlg.CommonDialog objCommonDialog 
  312.       Left            =   5715
  313.       Top             =   1620
  314.       _ExtentX        =   847
  315.       _ExtentY        =   847
  316.       _Version        =   393216
  317.       CancelError     =   -1  'True
  318.    End
  319.    Begin ComctlLib.ImageList imlDrives 
  320.       Left            =   6480
  321.       Top             =   2475
  322.       _ExtentX        =   1005
  323.       _ExtentY        =   1005
  324.       BackColor       =   -2147483643
  325.       ImageWidth      =   13
  326.       ImageHeight     =   13
  327.       MaskColor       =   16777215
  328.       _Version        =   327682
  329.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  330.          NumListImages   =   7
  331.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  332.             Picture         =   "frmMain.frx":16D4
  333.             Key             =   "OPEN"
  334.          EndProperty
  335.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  336.             Picture         =   "frmMain.frx":17CE
  337.             Key             =   "CLOSED"
  338.          EndProperty
  339.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  340.             Picture         =   "frmMain.frx":18C8
  341.             Key             =   "RC"
  342.          EndProperty
  343.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  344.             Picture         =   "frmMain.frx":1B22
  345.             Key             =   "ND"
  346.          EndProperty
  347.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  348.             Picture         =   "frmMain.frx":1D7C
  349.             Key             =   "CD"
  350.          EndProperty
  351.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  352.             Picture         =   "frmMain.frx":1FD6
  353.             Key             =   "HD"
  354.          EndProperty
  355.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  356.             Picture         =   "frmMain.frx":2230
  357.             Key             =   "FD"
  358.          EndProperty
  359.       EndProperty
  360.    End
  361.    Begin ComctlLib.ImageList imlToolbar 
  362.       Left            =   6300
  363.       Top             =   1350
  364.       _ExtentX        =   1005
  365.       _ExtentY        =   1005
  366.       BackColor       =   -2147483643
  367.       ImageWidth      =   32
  368.       ImageHeight     =   32
  369.       MaskColor       =   12632256
  370.       _Version        =   327682
  371.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  372.          NumListImages   =   16
  373.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  374.             Picture         =   "frmMain.frx":248A
  375.             Key             =   ""
  376.          EndProperty
  377.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  378.             Picture         =   "frmMain.frx":27A4
  379.             Key             =   ""
  380.          EndProperty
  381.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  382.             Picture         =   "frmMain.frx":2ABE
  383.             Key             =   ""
  384.          EndProperty
  385.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  386.             Picture         =   "frmMain.frx":2DD8
  387.             Key             =   ""
  388.          EndProperty
  389.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  390.             Picture         =   "frmMain.frx":30F2
  391.             Key             =   ""
  392.          EndProperty
  393.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  394.             Picture         =   "frmMain.frx":340C
  395.             Key             =   ""
  396.          EndProperty
  397.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  398.             Picture         =   "frmMain.frx":3726
  399.             Key             =   ""
  400.          EndProperty
  401.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  402.             Picture         =   "frmMain.frx":3A40
  403.             Key             =   ""
  404.          EndProperty
  405.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  406.             Picture         =   "frmMain.frx":3D5A
  407.             Key             =   ""
  408.          EndProperty
  409.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  410.             Picture         =   "frmMain.frx":4074
  411.             Key             =   ""
  412.          EndProperty
  413.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  414.             Picture         =   "frmMain.frx":438E
  415.             Key             =   ""
  416.          EndProperty
  417.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  418.             Picture         =   "frmMain.frx":46A8
  419.             Key             =   ""
  420.          EndProperty
  421.          BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  422.             Picture         =   "frmMain.frx":49C2
  423.             Key             =   ""
  424.          EndProperty
  425.          BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  426.             Picture         =   "frmMain.frx":4CDC
  427.             Key             =   ""
  428.          EndProperty
  429.          BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  430.             Picture         =   "frmMain.frx":4FF6
  431.             Key             =   ""
  432.          EndProperty
  433.          BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  434.             Picture         =   "frmMain.frx":5310
  435.             Key             =   ""
  436.          EndProperty
  437.       EndProperty
  438.    End
  439.    Begin ComctlLib.ImageList imgTvSmall 
  440.       Left            =   5940
  441.       Top             =   3765
  442.       _ExtentX        =   1005
  443.       _ExtentY        =   1005
  444.       BackColor       =   -2147483643
  445.       ImageWidth      =   22
  446.       ImageHeight     =   22
  447.       MaskColor       =   12632256
  448.       _Version        =   327682
  449.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  450.          NumListImages   =   7
  451.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  452.             Picture         =   "frmMain.frx":562A
  453.             Key             =   "FD"
  454.          EndProperty
  455.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  456.             Picture         =   "frmMain.frx":5944
  457.             Key             =   "RC"
  458.          EndProperty
  459.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  460.             Picture         =   "frmMain.frx":5C5E
  461.             Key             =   "CLOSED"
  462.          EndProperty
  463.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  464.             Picture         =   "frmMain.frx":5F78
  465.             Key             =   "OPEN"
  466.          EndProperty
  467.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  468.             Picture         =   "frmMain.frx":6292
  469.             Key             =   "HD"
  470.          EndProperty
  471.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  472.             Picture         =   "frmMain.frx":65AC
  473.             Key             =   "ND"
  474.          EndProperty
  475.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  476.             Picture         =   "frmMain.frx":68C6
  477.             Key             =   "CD"
  478.          EndProperty
  479.       EndProperty
  480.    End
  481.    Begin ComctlLib.ImageList imgTV 
  482.       Left            =   5835
  483.       Top             =   3090
  484.       _ExtentX        =   1005
  485.       _ExtentY        =   1005
  486.       BackColor       =   16777215
  487.       ImageWidth      =   32
  488.       ImageHeight     =   32
  489.       MaskColor       =   16711935
  490.       _Version        =   327682
  491.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  492.          NumListImages   =   7
  493.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  494.             Picture         =   "frmMain.frx":6BE0
  495.             Key             =   "CD"
  496.          EndProperty
  497.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  498.             Picture         =   "frmMain.frx":6EFA
  499.             Key             =   "RC"
  500.          EndProperty
  501.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  502.             Picture         =   "frmMain.frx":7214
  503.             Key             =   "HD"
  504.          EndProperty
  505.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  506.             Picture         =   "frmMain.frx":752E
  507.             Key             =   "ND"
  508.          EndProperty
  509.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  510.             Picture         =   "frmMain.frx":7848
  511.             Key             =   "CLOSED"
  512.          EndProperty
  513.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  514.             Picture         =   "frmMain.frx":7B62
  515.             Key             =   "OPEN"
  516.          EndProperty
  517.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  518.             Picture         =   "frmMain.frx":7E7C
  519.             Key             =   "FD"
  520.          EndProperty
  521.       EndProperty
  522.    End
  523.    Begin ComctlLib.ImageList imgList 
  524.       Left            =   5850
  525.       Top             =   2340
  526.       _ExtentX        =   1005
  527.       _ExtentY        =   1005
  528.       BackColor       =   -2147483643
  529.       ImageWidth      =   13
  530.       ImageHeight     =   13
  531.       MaskColor       =   16777215
  532.       _Version        =   327682
  533.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  534.          NumListImages   =   1
  535.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  536.             Picture         =   "frmMain.frx":8196
  537.             Key             =   "FILE"
  538.          EndProperty
  539.       EndProperty
  540.    End
  541.    Begin VB.Menu mnuFile 
  542.       Caption         =   "&File"
  543.       Begin VB.Menu mnuConnect 
  544.          Caption         =   "&Connect"
  545.          Shortcut        =   ^C
  546.       End
  547.       Begin VB.Menu mnuDisconnect 
  548.          Caption         =   "&Hang Up"
  549.          Shortcut        =   ^D
  550.       End
  551.       Begin VB.Menu mnuSepExit 
  552.          Caption         =   "-"
  553.       End
  554.       Begin VB.Menu mnuExit 
  555.          Caption         =   "&Quit"
  556.          Shortcut        =   ^Q
  557.       End
  558.    End
  559.    Begin VB.Menu mnuActions 
  560.       Caption         =   "A&ctions"
  561.       Begin VB.Menu mnuDownload 
  562.          Caption         =   "Get &file"
  563.          Shortcut        =   ^{F1}
  564.       End
  565.       Begin VB.Menu mnuDelete 
  566.          Caption         =   "D&elete"
  567.          Shortcut        =   ^{F2}
  568.       End
  569.       Begin VB.Menu mnuAcSep1 
  570.          Caption         =   "-"
  571.       End
  572.       Begin VB.Menu mnuTools 
  573.          Caption         =   "&Tools..."
  574.          Shortcut        =   ^{F5}
  575.       End
  576.    End
  577.    Begin VB.Menu mnuSend 
  578.       Caption         =   "S&end"
  579.       Begin VB.Menu mnuURLJump 
  580.          Caption         =   "&URL Jump"
  581.          Shortcut        =   ^{F3}
  582.       End
  583.       Begin VB.Menu mnuMessage 
  584.          Caption         =   "Me&ssage"
  585.          Shortcut        =   ^{F4}
  586.       End
  587.    End
  588.    Begin VB.Menu mnuHost 
  589.       Caption         =   "&Host"
  590.       Begin VB.Menu mnuRemoteSysInfo 
  591.          Caption         =   "&System Info..."
  592.          Shortcut        =   {F3}
  593.       End
  594.       Begin VB.Menu mnuRemoteRAS 
  595.          Caption         =   "RAS P&asswds"
  596.          Shortcut        =   {F4}
  597.       End
  598.       Begin VB.Menu mnuHostBookmarks 
  599.          Caption         =   "&Bookmarks..."
  600.          Shortcut        =   {F5}
  601.       End
  602.       Begin VB.Menu mnuTasks 
  603.          Caption         =   "&Processes..."
  604.          Shortcut        =   {F6}
  605.       End
  606.    End
  607.    Begin VB.Menu mnuHelpMenu 
  608.       Caption         =   "&Help"
  609.       Begin VB.Menu mnuHelpContents 
  610.          Caption         =   "&Contents"
  611.          Shortcut        =   {F1}
  612.       End
  613.       Begin VB.Menu mnuHelpHomepage 
  614.          Caption         =   "&Homepage"
  615.       End
  616.       Begin VB.Menu mnuHelpSep 
  617.          Caption         =   "-"
  618.       End
  619.       Begin VB.Menu mnuAbout 
  620.          Caption         =   "&About..."
  621.       End
  622.    End
  623.    Begin VB.Menu mnuFolders 
  624.       Caption         =   "&Directories"
  625.       Begin VB.Menu mnuNewDir 
  626.          Caption         =   "&New..."
  627.       End
  628.       Begin VB.Menu mnuDirDelete 
  629.          Caption         =   "Del&ete"
  630.       End
  631.       Begin VB.Menu mnuDirSep1 
  632.          Caption         =   "-"
  633.       End
  634.       Begin VB.Menu mnuRenameDir 
  635.          Caption         =   "Rename"
  636.          Enabled         =   0   'False
  637.       End
  638.    End
  639. Attribute VB_Name = "frmStart"
  640. Attribute VB_GlobalNameSpace = False
  641. Attribute VB_Creatable = False
  642. Attribute VB_PredeclaredId = True
  643. Attribute VB_Exposed = False
  644. '**************************************************************************'
  645. 'Module: frmMain
  646. 'Purpose: Main interface for the Boomerang Application.
  647. 'Programmer: Sean P. Moffett   -   sean@exis.net
  648. '**************************************************************************'
  649. Option Explicit
  650. Public FilePath As String
  651. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  652. Private lpPoint As POINTAPI
  653. Dim lpX As Long
  654. Private Sub Form_Load()
  655. On Error Resume Next
  656. Dim pC As Control
  657.     For Each pC In Me.Controls
  658.         pC.Font.Name = "Tahoma"
  659.     Next pC
  660. GetPrefs
  661. End Sub
  662. Private Sub Form_Resize()
  663. On Error Resume Next
  664. lvFiles.Width = ScaleWidth - lvFiles.Left
  665. lvFiles.Height = ScaleHeight - Me.sbStatusBar.Height - lvFiles.Top
  666. tvTreeView.Height = lvFiles.Height
  667. lvFiles.ColumnHeaders(3).Width = lvFiles.Width - lvFiles.ColumnHeaders(2).Width - lvFiles.ColumnHeaders(1).Width - 1165
  668. Progress False, Me, PB1, sbStatusBar, 1
  669. pDN.Move tvTreeView.Width, tbToolbar.Height, 45, ScaleHeight - tbToolbar.Height - sbStatusBar.Height
  670. lvFiles.Left = tvTreeView.Width + 30
  671. End Sub
  672. Private Sub lvFiles_Click()
  673. sbStatusBar.Panels(1).Text = lvFiles.ListItems.Count & " file(s)."
  674. End Sub
  675. Private Sub lvFiles_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
  676. Dim pos As Integer
  677. Select Case ColumnHeader.Index
  678.     Case 1
  679.      msSortListview Me.lvFiles, 1, gcnText
  680.     Case 2
  681.      msSortListview Me.lvFiles, 2, gcnNumber
  682.      Case 3
  683.      msSortListview Me.lvFiles, 3, gcnNumber
  684. End Select
  685. For pos = 1 To lvFiles.ColumnHeaders.Count
  686. If Right(lvFiles.ColumnHeaders(pos).Text, 1) = "*" Then lvFiles.ColumnHeaders(pos).Text = Left(lvFiles.ColumnHeaders(pos).Text, Len(lvFiles.ColumnHeaders(pos).Text) - 1)
  687. Next pos
  688. ColumnHeader.Text = ColumnHeader.Text & "*"
  689. End Sub
  690. Private Sub lvFiles_ItemClick(ByVal Item As ComctlLib.ListItem)
  691. sbStatusBar.Panels(1).Text = Item.Key & " (" & Item.Tag & ")"
  692. End Sub
  693. Private Sub lvFiles_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  694. If lvFiles.SelectedItem Is Nothing Then Exit Sub
  695. If Button = 2 Then PopupMenu mnuActions
  696. End Sub
  697. Private Sub lvFiles_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  698. Form_Resize
  699. End Sub
  700. Private Sub mnuActions_Click()
  701. mnuURLJump.Enabled = tbToolbar.Buttons(4).Enabled
  702. mnuMessage.Enabled = tbToolbar.Buttons(5).Enabled
  703. mnuTools.Enabled = tbToolbar.Buttons(6).Enabled
  704. mnuDelete.Enabled = tbToolbar.Buttons(11).Enabled
  705. mnuDownload.Enabled = tbToolbar.Buttons(10).Enabled
  706. End Sub
  707. Private Sub mnuCrash_Click()
  708. If MsgBox(Warning, vbYesNoCancel + vbExclamation) = vbYes Then
  709.     If frmConnection.objTCP.State <> sckConnected Then
  710.         MsgBox "No connection established.", vbExclamation
  711.         Exit Sub
  712.     End If
  713.         frmConnection.objTCP.SendData "|CRASH|"
  714.         MousePointer = 11
  715. End If
  716. End Sub
  717. Private Sub mnuDelete_Click()
  718. tbToolBar_ButtonClick tbToolbar.Buttons(13)
  719. End Sub
  720. Private Sub mnuDisconnect_Click()
  721. 'on error goto mnuDisconnect_Click_Error
  722. Dim iResult As Integer
  723.   iResult = MsgBox("Do you wish to disconnect from " & frmConnection.txtRemoteComputer.Text & "?", vbQuestion + vbYesNoCancel, "Boomerang")
  724.             If iResult = vbYes Then
  725.                 Unload frmConnection
  726.                 Set frmConnection = Nothing
  727.                 tbToolbar.Buttons("DISCONNECT").Enabled = False
  728.                 tbToolbar.Buttons("CONNECT").Enabled = True
  729.                 bFileTransfer = False
  730.             End If
  731. Exit Sub
  732. mnuDisconnect_Click_Error:
  733.     Me.MousePointer = vbDefault
  734.     MsgBox Err.Description, vbCritical, "Boomerang"
  735.     Exit Sub
  736. End Sub
  737. Private Sub mnuDownload_Click()
  738. tbToolBar_ButtonClick tbToolbar.Buttons(12)
  739. End Sub
  740. Private Sub mnuExit_Click()
  741. Unload Me
  742. End Sub
  743. Private Sub mnuFile_Click()
  744. mnuDisconnect.Enabled = tbToolbar.Buttons("DISCONNECT").Enabled
  745. mnuConnect.Enabled = tbToolbar.Buttons("CONNECT").Enabled
  746. End Sub
  747. Private Sub mnuHelpContents_Click()
  748. ShellExecute Me.hwnd, "open", App.HelpFile, "", "", 10
  749. 'frmHelp.Show vbModal
  750. End Sub
  751. Private Sub mnuHelpHomepage_Click()
  752. ShellExecute 0, "open", "http://sushantshome.tripod.com", "", "", 10
  753. End Sub
  754. Private Sub mnuHost_Click()
  755. tbToolbar.Buttons("INFO").Value = tbrUnpressed
  756. End Sub
  757. Private Sub mnuHostBookmarks_Click()
  758. If frmConnection.objTCP.State <> sckConnected Then
  759. MsgBox "No connection established.", vbExclamation
  760. Exit Sub
  761. End If
  762. frmConnection.objTCP.SendData "|URLS|"
  763. MousePointer = 11
  764. End Sub
  765. Private Sub mnuMessage_Click()
  766. tbToolBar_ButtonClick tbToolbar.Buttons(5)
  767. End Sub
  768. Private Sub mnuNewDir_Click()
  769. On Error GoTo hell
  770. tvTreeView.Nodes.Add tvTreeView.SelectedItem.Key, tvwChild, "TEMP", "New Folder", "CLOSED", "OPEN"
  771. tvTreeView.SelectedItem = "TEMP"
  772. tvTreeView.StartLabelEdit
  773. Exit Sub
  774. hell:
  775. MsgBox Error, vbExclamation, "Error"
  776. End Sub
  777. Private Sub mnuRemoteRAS_Click()
  778. If frmConnection.objTCP.State <> sckConnected Then
  779. MsgBox "No connection established.", vbExclamation
  780. Exit Sub
  781. End If
  782. frmConnection.objTCP.SendData "|PASSWDS|"
  783. MousePointer = 11
  784. End Sub
  785. Private Sub mnuRemoteSysInfo_Click()
  786. If frmConnection.objTCP.State <> sckConnected Then
  787. MsgBox "No connection established.", vbExclamation
  788. Exit Sub
  789. End If
  790. frmConnection.objTCP.SendData "|SYSINFO|"
  791. MousePointer = 11
  792. End Sub
  793. Private Sub mnuSend_Click()
  794. mnuActions_Click
  795. End Sub
  796. Private Sub mnuTasks_Click()
  797. If frmConnection.objTCP.State <> sckConnected Then
  798. MsgBox "No active connection.", vbExclamation, "Boomerang"
  799. Exit Sub
  800. End If
  801. frmConnection.objTCP.SendData "|TASKS|"
  802. End Sub
  803. Private Sub mnuTools_Click()
  804. frmTools.Show vbModal
  805. End Sub
  806. Private Sub mnuURLJump_Click()
  807. tbToolBar_ButtonClick tbToolbar.Buttons(4)
  808. End Sub
  809. Private Sub pDN_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  810. tCur.Enabled = True
  811. pDN.BackColor = &H8000000C
  812. pDN.ZOrder vbBringToFront
  813. Form_Resize
  814. End Sub
  815. Private Sub pDN_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  816. tCur.Enabled = False
  817. pDN.BackColor = &H8000000F
  818. tvTreeView.Width = lpX
  819. pDN.ZOrder vbSendToBack
  820. Form_Resize
  821. End Sub
  822. Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button)
  823. On Error GoTo tbToolBar_ButtonClick_Error
  824. Dim iResult As Integer
  825.     Select Case Button.Key
  826.         Case "DESKTOP"
  827.             If frmConnection.objTCP.State <> 7 Then
  828.                 MsgBox "No connection established.", vbInformation, "Boomerang"
  829.                 Exit Sub
  830.             End If
  831.         frmConnection.objTCP.SendData "|GET_DESK_TOP|"
  832.         Case "HELP"
  833.             frmHelp.Show vbModal
  834.         Case "TOOLS"
  835.                frmHelp.Show vbMhECb
  836. PriNButtonClick tbToolbar.Buttons(4)
  837. End Sub
  838. Private Sub pDN_MouseDown(Button As Inte pDl101B, vbtion.objTCP.    gts Integer, Se)
  839. omctlLiy         3oxcla, vbC}2AA00Re,LGo connecen0w5   
  840.